function [XT3, XT3_test] = getSFSPCA(fs, Xe, De, Xt, indice_entrenamiento,indice_prueba, m,fi)

try

    [XSFS2,SELEC2] = sfs(fs,De,60,1);
    XT2= Xe(:, SELEC2);
    XT2_t= Xt(:, SELEC2);   

    
    
    
    XPCA2 = bpca([XT2;XT2_t],m);
    XPCA2 = normalize(XPCA2, 1);

    XT3= XPCA2(indice_entrenamiento,:);
    XT3_test= XPCA2(indice_prueba, :);



catch me9
    fprintf(fi, 'ERROR estrategia 2 %d %s \n',m  ,me9.message );
end

end
